home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / dev / asm / ESA.lha / ESA / examples / sss / code / main.esa < prev    next >
Encoding:
Text File  |  1999-10-14  |  898 b   |  35 lines
  1. *******************************************************************************
  2. * main v1.3.0
  3. *******************************************************************************
  4.  
  5.     machine    68020
  6.     include    defs.i
  7.  
  8. *******************************************************************************
  9.  
  10.     when.s Init[a0,d0]    ;initialization
  11.  
  12.      when.s ParseCmdLn[#CmdLn]    ;get command line args
  13.       Print[#txt_title]    ;must come after ParseCmdLn[]
  14.       when.s ~Settings[]    ;open files, allocmem, etc.
  15.        GiveInfo[]    ;show some info
  16.        Split[]        ;if no err, execute splitting
  17.       ewhen
  18.       ShowResult[d0]    ;d0 ret. by Settings[] or Split[]
  19.      othw
  20.       Print[#txt_title]
  21.       Print[#txt_UsgHlp]    ;show help text
  22.      ewhen
  23.  
  24.     ewhen
  25.     CleanUp[]        ;final cleanup
  26.     rts
  27.  
  28. *******************************************************************************
  29. * subroutines and data
  30.  
  31.     include    split.ei
  32.     include    opt.ei
  33.     include    misc.ei
  34.     include    data.i
  35.